home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / bin2.lha / Macros / DoLink.rexx next >
OS/2 REXX Batch file  |  1994-08-08  |  590b  |  23 lines
  1. /* DoLink - Link an Oberon program */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7. if ~show('L','RexxDosSupport.library') then
  8.    call addlib('RexxDosSupport.library',0,-30)
  9.  
  10. parse arg module screenname
  11.  
  12. link_args = GetVar("LINK_ARGS")
  13.  
  14. call close 'STDERR'
  15. call open 'STDERR','NIL:','W'
  16. call close 'STDIN'
  17. call close 'STDOUT'
  18. call open 'STDOUT','CON:10/25/540/165/Linking.../SCREEN'||screenname,'RW'
  19. call pragma '*','STDOUT'
  20. call pragma 'Stack', 10000
  21.  
  22. address command 'OBERON-A:C/BLink >* <* WITH Code/'||module||'.with' link_args
  23.